home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Treiber / Misc / ATA3 / ATA3-Install < prev    next >
Text File  |  2000-01-28  |  8KB  |  394 lines
  1. (set #kkversion (getversion))
  2. (set #kkversion (/ #kkversion 65536) )
  3. (set alinstal 0)
  4. (set ilnapedow 0)
  5. (set #proc (database "cpu"))
  6. (if (OR (= #proc "68000") (= #proc "68010"))
  7.     (abort "\n\nProcessor 68020 or higher is required!")
  8. ) 
  9. (if (< #kkversion 39)
  10.    (abort "\n\nKickstart 3.0 or higher is required!")
  11. )
  12. (message "\n\n\n\nWelcome to FastATA'99! ")
  13. (set reinstalacja
  14.  (askchoice
  15.   (prompt "")
  16.    (help "\nSelect Installation only when you install this software"
  17.      " for the first time on this HDD, otherwise select Reinstallation.")
  18.    (choices "Installation" "Reinstallation")
  19.    (default 0)
  20.  )
  21. )
  22. (if reinstalacja
  23.  (set wybor 0)
  24.  (set wybor 
  25.   (askbool
  26.    (prompt "\n\n\n\nMay I change your s:startup-sequence?")
  27.    (help "\nIf you agree to change your s:startup-sequence, the installer"
  28.       "will add lines:\nC:CheckLMB\nIF WARN\n"
  29.       "SYS:Prefs/ATA3Prefs\nENDIF\nC:ATA3.driver QUIET")
  30.    (choices  "Yes"  "No")
  31.    (default 1)
  32.   )
  33.  )
  34. )
  35.  
  36. (copylib
  37.    (prompt "ATA3.driver will be copied to C: directory.")
  38.    (help )
  39.    (source "ATA3.driver")
  40.    (confirm)
  41.    (dest "C:")
  42. )
  43.  
  44. (copylib
  45.    (prompt "ATA3Prefs will be copied to SYS:Prefs directory.")
  46.    (help )
  47.    (source "ATA3Prefs")
  48.    (confirm)
  49.    (infos)
  50.    (dest "SYS:Prefs")
  51. )
  52.  
  53. (copyfiles
  54.    (prompt "CheckLMB will be copied to C: directory.")
  55.    (source "CheckLMB")
  56.    (help )
  57.    (dest "C:")
  58. )
  59.  
  60.  
  61. (if wybor
  62.    (
  63.       (copyfiles
  64.         (source "S:startup-sequence")
  65.         (dest "RAM:")
  66.       )
  67.       (textfile
  68.         (dest "S:startup-sequence")
  69.         (append "C:CheckLMB\nIF WARN\nSYS:Prefs/ATA3Prefs\nENDIF\n")
  70.         (append "C:ATA3.driver QUIET\n")
  71.         (include "RAM:startup-sequence")
  72.       )
  73.       (delete "RAM:startup-sequence")
  74.    )
  75. )
  76. (run "ATA3Prefs INIT")
  77. (if ( exists "RAM:L0")
  78.  (
  79.   (delete "RAM:L0")
  80.   (set ilnapedow (+ ilnapedow 1))
  81.   (set wybor 
  82.     (askbool
  83.      (prompt "\n\n\n\nI find LS/ZIP connected as Primary Master\n"
  84.               "May I create mountlist?")
  85.      (help )
  86.      (default 0)
  87.     )
  88.   )
  89.   (set zastap 1)
  90.   (if (exists "DEVS:Dosdrivers/PC4")
  91.      (set zastap         
  92.       (askbool
  93.        (prompt "\n\n\n\n\nFile PC4 exists.\nMay I overwrite it?")
  94.        (help )
  95.        (default 0)
  96.       )
  97.      )
  98.   )
  99.   (if (AND zastap wybor) 
  100.       (copyfiles
  101.        (prompt "PC4.info will be copied to DEVS:Dosdrivers/ directory.")
  102.        (help )
  103.        (source "mountlists/PC4")
  104.        (dest "DEVS:Dosdrivers/")
  105.        (infos)
  106.       )
  107.   )
  108.  )
  109. )
  110.  
  111. (if ( exists "RAM:L1")
  112.  (
  113.   (delete "RAM:L1")
  114.   (set ilnapedow (+ ilnapedow 1))
  115.   (set wybor 
  116.     (askbool
  117.      (prompt "\n\n\n\nI find LS/ZIP connected as Primary Slave\n"
  118.               "May I create mountlist?")
  119.      (help )
  120.      (default 0)
  121.     )
  122.   )
  123.   (set zastap 1)
  124.   (if (exists "DEVS:Dosdrivers/PC5")
  125.      (set zastap         
  126.       (askbool
  127.        (prompt "\n\n\n\n\nFile PC5 exists.\nMay I overwrite it?")
  128.        (help )
  129.        (default 0)
  130.       )
  131.      )
  132.   )
  133.   (if (AND zastap wybor) 
  134.       (copyfiles
  135.        (prompt "PC5.info will be copied to DEVS:Dosdrivers/ directory.")
  136.        (help )
  137.        (source "mountlists/PC5")
  138.        (dest "DEVS:Dosdrivers/")
  139.        (infos)
  140.       )
  141.   )
  142.  )
  143. )
  144.  
  145. (if ( exists "RAM:L2")
  146.  (
  147.   (delete "RAM:L2")
  148.   (set ilnapedow (+ ilnapedow 1))
  149.   (set wybor 
  150.     (askbool
  151.      (prompt "\n\n\n\nI find LS/ZIP connected as Secondary Master\n"
  152.               "May I create mountlist?")
  153.      (help )
  154.      (default 0)
  155.     )
  156.   )
  157.   (set zastap 1)
  158.   (if (exists "DEVS:Dosdrivers/PC6")
  159.      (set zastap         
  160.       (askbool
  161.        (prompt "\n\n\n\n\nFile PC6 exists.\nMay I overwrite it?")
  162.        (help )
  163.        (default 0)
  164.       )
  165.      )
  166.   )
  167.   (if (AND zastap wybor) 
  168.       (copyfiles
  169.        (prompt "PC6.info will be copied to DEVS:Dosdrivers/ directory.")
  170.        (help )
  171.        (source "mountlists/PC6")
  172.        (dest "DEVS:Dosdrivers/")
  173.        (infos)
  174.       )
  175.   )
  176.  )
  177. )
  178.  
  179. (if ( exists "RAM:L3")
  180.  (
  181.   (delete "RAM:L3")
  182.   (set ilnapedow (+ ilnapedow 1))
  183.   (set wybor 
  184.     (askbool
  185.      (prompt "\n\n\n\nI find LS/ZIP connected as Secondary Slave\n"
  186.               "May I create mountlist?")
  187.      (help )
  188.      (default 0)
  189.     )
  190.   )
  191.   (set zastap 1)
  192.   (if (exists "DEVS:Dosdrivers/PC7")
  193.      (set zastap         
  194.       (askbool
  195.        (prompt "\n\n\n\n\nFile PC7 exists.\nMay I overwrite it?")
  196.        (help )
  197.        (default 0)
  198.       )
  199.      )
  200.   )
  201.   (if (AND zastap wybor) 
  202.       (copyfiles
  203.        (prompt "PC7.info will be copied to DEVS:Dosdrivers/ directory.")
  204.        (help )
  205.        (source "mountlists/PC7")
  206.        (dest "DEVS:Dosdrivers/")
  207.        (infos)
  208.       )
  209.   )
  210.  )
  211. )
  212. (if (= (getsize "ENVARC:ATA3.Prefs") 13)
  213.  (set alinstal 1)
  214. )
  215. (if (= alinstal 1)
  216. (
  217. (message "\n\n\n\nFastATA'99 succesfully installed.")
  218. (message "\n\n\n\nWelcome to AllegroCDFS! ")
  219. (copylib
  220.    (prompt "AllegroCDFS will be copied to L: directory.")
  221.    (help )
  222.    (source "mountlists/Orgella")
  223.    (confirm)
  224.    (newname "AllegroCDFS")
  225.    (dest "L:")
  226. )
  227.  
  228. (copyfiles
  229.    (prompt "def_ISOCDDA.info will be copied to ENVARC: directory.")
  230.    (help )
  231.    (confirm)
  232.    (source "icons/def_ISOCDDA.info")
  233.    (dest "ENVARC:")
  234. )
  235.  
  236. (copyfiles
  237.    (prompt "def_CDDAdisk.info will be copied to ENVARC: directory.")
  238.    (help )
  239.    (confirm)
  240.    (source "icons/def_CDDAdisk.info")
  241.    (dest "ENVARC:")
  242. )
  243.  
  244.  
  245. (set wybor 0)
  246. (set wybor 
  247.   (askbool
  248.    (prompt "\n\n\n\nMay I delete all CDx mountlists in DEVS:Dosdrivers/?\nRecommended: YES.")
  249.    (help )
  250.    (default 1)
  251.   )
  252. )
  253. (if wybor (delete "DEVS:dosdrivers/CD#?"))      
  254. (if ( exists "RAM:C0")
  255.  (
  256.   (delete "RAM:C0")
  257.   (set ilnapedow (+ ilnapedow 1))
  258.   (set wybor 
  259.     (askbool
  260.      (prompt "\n\n\n\nI find CD-ROM connected as Primary Master\n"
  261.               "May I create mountlist?")
  262.      (help )
  263.      (default 0)
  264.     )
  265.   )
  266.   (set zastap 1)
  267.   (if (exists "DEVS:Dosdrivers/CD0")
  268.      (set zastap         
  269.       (askbool
  270.        (prompt "\n\n\n\n\nFile CD0 exists.\nMay I overwrite it?")
  271.        (help )
  272.        (default 0)
  273.       )
  274.      )
  275.   )
  276.   (if (AND zastap wybor) 
  277.       (copyfiles
  278.        (prompt "CD0.info will be copied to DEVS:Dosdrivers/ directory.")
  279.        (help )
  280.        (source "mountlists/CD0")
  281.        (dest "DEVS:Dosdrivers/")
  282.        (infos)
  283.       )
  284.   )
  285.  )
  286. )
  287.  
  288. (if ( exists "RAM:C1")
  289.  (
  290.   (delete "RAM:C1")
  291.   (set ilnapedow (+ ilnapedow 1))
  292.   (set wybor 
  293.     (askbool
  294.      (prompt "\n\n\n\nI find CD-ROM connected as Primary Slave\n"
  295.               "May I create mountlist?")
  296.      (help )
  297.      (default 0)
  298.     )
  299.   )
  300.   (set zastap 1)
  301.   (if (exists "DEVS:Dosdrivers/CD1")
  302.      (set zastap         
  303.       (askbool
  304.        (prompt "\n\n\n\n\nFile CD1 exists.\nMay I overwrite it?")
  305.        (help )
  306.        (default 0)
  307.       )
  308.      )
  309.   )
  310.   (if (AND zastap wybor) 
  311.       (copyfiles
  312.        (prompt "CD1.info will be copied to DEVS:Dosdrivers/ directory.")
  313.        (help )
  314.        (source "mountlists/CD1")
  315.        (dest "DEVS:Dosdrivers/")
  316.        (infos)
  317.       )
  318.   )
  319.  )
  320. )
  321.  
  322. (if ( exists "RAM:C2")
  323.  (
  324.   (delete "RAM:C2")
  325.   (set ilnapedow (+ ilnapedow 1))
  326.   (set wybor 
  327.     (askbool
  328.      (prompt "\n\n\n\nI find CD-ROM connected as Secondary Master\n"
  329.               "May I create mountlist?")
  330.      (help )
  331.      (default 0)
  332.     )
  333.   )
  334.   (set zastap 1)
  335.   (if (exists "DEVS:Dosdrivers/CD2")
  336.      (set zastap         
  337.       (askbool
  338.        (prompt "\n\n\n\n\nFile CD2 exists.\nMay I overwrite it?")
  339.        (help )
  340.        (default 0)
  341.       )
  342.      )
  343.   )
  344.   (if (AND zastap wybor) 
  345.       (copyfiles
  346.        (prompt "CD2.info will be copied to DEVS:Dosdrivers/ directory.")
  347.        (help )
  348.        (source "mountlists/CD2")
  349.        (dest "DEVS:Dosdrivers/")
  350.        (infos)
  351.       )
  352.   )
  353.  )
  354. )
  355.  
  356. (if ( exists "RAM:C3")
  357.  (
  358.   (delete "RAM:C3")
  359.   (set ilnapedow (+ ilnapedow 1))
  360.   (set wybor 
  361.     (askbool
  362.      (prompt "\n\n\n\nI find CD-ROM connected as Secondary Slave\n"
  363.               "May I create mountlist?")
  364.      (help )
  365.      (default 0)
  366.     )
  367.   )
  368.   (set zastap 1)
  369.   (if (exists "DEVS:Dosdrivers/CD3")
  370.      (set zastap         
  371.       (askbool
  372.        (prompt "\n\n\n\n\nFile CD3 exists.\nMay I overwrite it?")
  373.        (help )
  374.        (default 0)
  375.       )
  376.      )
  377.   )
  378.   (if (AND zastap wybor) 
  379.       (copyfiles
  380.        (prompt "CD3.info will be copied to DEVS:Dosdrivers/ directory.")
  381.        (help )
  382.        (source "mountlists/CD3")
  383.        (dest "DEVS:Dosdrivers/")
  384.        (infos)
  385.       )
  386.   )
  387.  )
  388. )
  389.  
  390. (exit "\n\n\n\nAllegroCDFS succesfully installed." (quiet))
  391. )
  392. (exit "\n\n\n\nFastATA'99 succesfully installed." (quiet))
  393. )
  394.